home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / rexx / Convert_to_PDF.lha / Convert to PDF next >
Text File  |  1997-09-30  |  629b  |  23 lines
  1. /* FinalWriter AREXX macro */
  2. /* Convert to PDF uses GHOSTSCRIPT ® to convert the */
  3. /* current document to PDF format. A GHOSTSCRIPT: assign is needed */
  4. /* $VER: Convert to PDF 1.0ß */
  5.  
  6. Options Results
  7.  
  8. PostscriptFile 'T:OK.ps'
  9. PrintSetup PRINTTO psfile
  10. PSPrintPrefs SHADE color
  11. Print
  12.  
  13. ADDRESS COMMAND
  14. 'Wait' 
  15. 'Delete' 'T:OK.ps.info'
  16. 'RequestFile' '>ENV:File' 'Title="Where to save the PDF file?"'
  17. 'echo >T:Tmp' '"Stack 40000"'
  18. 'echo >>T:Tmp' '"Ghostscript:GS -dNOPAUSE -sDEVICE=pdfwrite -dBATCH -sOutputFile=T:KO.pdf T:OK.ps"'
  19. 'Execute' 'T:Tmp'
  20. 'Delete' 'T:OK.ps'
  21. 'Copy' 'T:KO.PDF' '$file'
  22. 'Delete' 'T:KO.pdf'
  23. 'Delete' 'T:Tmp'